home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / amigae.0793july.archive / 000004_crash!minyos.xx….OZ.AU!s924723_Sun, 4 Jul 93 19:42:52 PST.msg < prev    next >
Internet Message Format  |  1994-05-26  |  2KB
  1. Received: by bkhouse.cts.com (V1.16/Amiga)
  2.     id AA00000; Sun, 4 Jul 93 19:42:52 PST
  3. Received: from peladon.rmit.OZ.AU by crash.cts.com with smtp
  4.     (Smail3.1.28.1 #15) id m0oCg5t-0000RcC; Sun, 4 Jul 93 19:15 PDT
  5. Received: from minyos.xx.rmit.OZ.AU by peladon.rmit.OZ.AU with SMTP id AA16127
  6.   (5.65c/IDA-1.4.4 for <amigae@bkhouse.cts.com>); Mon, 5 Jul 1993 12:15:32 +1000
  7. Received: by minyos.xx.rmit.oz.au
  8. Date: Mon, 5 Jul 93 12:15:34 EST
  9. Message-Id: <9307050215.23331@minyos.xx.rmit.oz.au>
  10. From: s924723@minyos.xx.rmit.OZ.AU (Son Huu Le)
  11. To: amigae@bkhouse.cts.com
  12. Subject: Joystick
  13.  
  14.  
  15. Anyone want to access the joystick?
  16.  
  17. Son Le
  18.  
  19.  
  20. PROC main()
  21. DEF joypos, joyx, joyy, firebutton
  22. /*
  23.    $DFF00A (gameport 0) - %xxxxxxxx xxxxxxx fedcba98 76543210
  24.    $DFF00C (gameport 1)
  25.  
  26.     left  - bit 9    up   - bit 8 xor bit 9,  Eor(bit 8,bit 9)
  27.     right - bit 1    down - bit 0 xor bit 1,  Eor(bit 0,bit 1)
  28.  
  29.    $BFE001 (gameport fire) - %76543210
  30.  
  31.     fire gameport 0 - bit 7
  32.     fire gameport 1 - bit 6      (zero-active, ie. 0=pressed)
  33. */
  34.     WHILE CtrlC()=FALSE
  35.         joypos:=Long($dff00a) AND $FFFF
  36.         firebutton:=Char($bfe001)
  37.         joyx:=joypos AND %11
  38.         joyy:=Shr(joypos,8) AND %11
  39.         IF ((joyx AND %10) = %10) THEN WriteF('right\t')
  40.         IF ((joyy AND %10) = %10) THEN WriteF('left\t')
  41.         IF (joyx = %01) OR (joyx = %10) THEN WriteF('down\t')
  42.         IF (joyy = %01) OR (joyy = %10) THEN WriteF('up\t')
  43.  
  44. /*        IF Eor(joyx AND %01,Shr(joyx,1)) = 1 THEN WriteF('down\t')
  45.         IF Eor(joyy AND %01,Shr(joyy,1)) = 1 THEN WriteF('up\t')
  46. */
  47.         IF (firebutton AND %10000000) = 0 THEN WriteF('fire')
  48.         WriteF('                  \b')
  49.     ENDWHILE
  50. ENDPROC